home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vc2_sml / vc2_sml.exe / data1.cab / VoodooCoder_Templates / Default.ftr < prev    next >
Encoding:
Text File  |  1999-02-20  |  408 b   |  13 lines
  1. Exit %ProcType%
  2.  
  3. %sProcName%_ErrorHandler:
  4.   Select Case MsgBox("Error " & Err.Number & ": " & vbCrLf & Err.Description & vbCrlf & "Occurred at line " & Erl & " in " & App.Title & ": %sModule%.%sProcName%", vbAbortRetryIgnore + vbExclamation, App.Title &  " Error.")
  5.     Case vbAbort
  6.     Resume Exit_%sProcName%
  7.     Case vbRetry
  8.     Resume
  9.     Case vbIgnore
  10.     Resume Next
  11.   End Select
  12.  
  13. Exit_%sProcName%: